home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat120 / mpls_patch_v1.4_demo / uninstall mpls patch demo < prev    next >
Text File  |  1996-04-15  |  5KB  |  155 lines
  1. ;
  2. ;  $VER: MPLS Patch DEMO Uninstall v1.4 (10/04/96)
  3. ;
  4.  
  5.  (complete 0)
  6.  
  7.  (if (askbool
  8.       (prompt
  9.        (cat "\n"
  10.             "Etes-vous sûr de vouloir désinstaller MPLS Patch DEMO"
  11.        )
  12.       )
  13.       (help)
  14.       (choices "Oui"
  15.                "Non"
  16.       )
  17.      )
  18.  
  19.  
  20. ;---------------------------------------------------------------------------;
  21.  
  22.   (
  23.    (set olddrawer-source
  24.     (askdir
  25.      (prompt
  26.       (cat "\n"
  27.            "Où avez-vous installé le répertoire MPLS_Patch_DEMO "
  28.            "lors de la précédente installation ?"
  29.            "\n"
  30.       )
  31.      )
  32.      (help
  33.       (cat "\n"
  34.            "Vous  devez  sélectionner   une   partition  ou  un "
  35.            "répertoire de  votre  disque  dur  dans lequel vous "
  36.            "avez installé  le  répertoire  de  MPLS Patch DEMO, "
  37.            "lors de la précédente installation."
  38.            "\n\n"
  39.            @askdir-help
  40.       )
  41.      )
  42.      (default "SYS:Tools")
  43.     )
  44.    )
  45.  
  46.    (if (not (exists (tackon olddrawer-source "MPLS_Patch_DEMO")))
  47.     (abort
  48.      (cat "\n"
  49.           "Le répertoire sélectionné ne contient pas de répertoire "
  50.           "'MPLS_Patch_DEMO'."
  51.      )
  52.     )
  53.    )
  54.  
  55.  
  56. ;---------------------------------------------------------------------------;
  57.  
  58.    (set oldpatch-source
  59.     (askdir
  60.      (prompt
  61.       (cat "\n"
  62.            "Où avez-vous installé le programme principal de "
  63.            "\n"
  64.            "MPLS Patch DEMO lors de la précédente installation ?"
  65.            "\n"
  66.       )
  67.      )
  68.      (help
  69.       (cat "\n"
  70.            "Vous  devez  sélectionner   une   partition  ou  un "
  71.            "répertoire de  votre  disque  dur  dans lequel vous "
  72.            "avez   effectué   la  précédente   installation  du "
  73.            "programme principal de MPLS Patch DEMO."
  74.            "\n"
  75.            "Le programme principal a soit été installé dans son "
  76.            "répertoire    'MPLS_Patch_DEMO',   soit   dans   le "
  77.            "répertoire 'WBStartup' de votre partition Workbench."
  78.            "\n\n"
  79.            @askdir-help
  80.       )
  81.      )
  82.      (default (tackon olddrawer-source "MPLS_Patch_DEMO"))
  83.     )
  84.    )
  85.  
  86. ;---------------------------------------------------------------------------;
  87.  
  88.    (set olddoc-source
  89.     (askdir
  90.      (prompt
  91.       (cat "\n"
  92.            "Où avez-vous installé la documentation de "
  93.            "\n"
  94.            "MPLS Patch DEMO lors de la précédente installation ?"
  95.            "\n"
  96.       )
  97.      )
  98.      (help
  99.       (cat "\n"
  100.            "Vous  devez  sélectionner   une   partition  ou  un "
  101.            "répertoire de  votre  disque  dur  dans lequel vous "
  102.            "avez   effectué   la  précédente  installation  de  "
  103.            "la documentation de MPLS Patch DEMO."
  104.            "\n"
  105.            "La documentation a sans doute été installé dans  le "
  106.            "répertoire 'MPLS_Patch_DEMO'."
  107.            "\n\n"
  108.            @askdir-help
  109.       )
  110.      )
  111.      (default (tackon olddrawer-source "MPLS_Patch_DEMO"))
  112.     )
  113.    )
  114.  
  115. ;---------------------------------------------------------------------------;
  116.  
  117.    (working "\nEffacement du programme principal...")
  118.  
  119.    (run ("C:Delete >NIL: FILE=\"%s\" ALL FORCE QUIET" (tackon oldpatch-source "MPLS_Patch.Brilliance#?")))
  120.    (run ("C:Delete >NIL: FILE=\"%s\" ALL FORCE QUIET" (tackon oldpatch-source "MPLS_Patch.TrueBrilliance#?")))
  121.    (run ("C:Delete >NIL: FILE=\"%s\" ALL FORCE QUIET" (tackon oldpatch-source "MPLS_Patch.DPaint#?")))
  122.    (run "C:Delete >NIL: FILE S:MPLS_Patch_DEMO.Env FORCE QUIET")
  123.  
  124. ;---------------------------------------------------------------------------;
  125.  
  126.    (working "\nEffacement de la documentation...")
  127.  
  128.    (run ("C:Delete >NIL: FILE=\"%s\" ALL FORCE QUIET" (tackon olddoc-source "MPLS_Patch_DEMO.Guide#?")))
  129.    (run ("C:Delete >NIL: FILE=\"%s\" ALL FORCE QUIET" (tackon olddoc-source "MPLS_Patch_DEMO.Doc#?")))
  130.    (run ("C:Delete >NIL: FILE=\"%s\" ALL FORCE QUIET" (tackon olddoc-source "Description#?")))
  131.    (run ("C:Delete >NIL: FILE=\"%s\" ALL FORCE QUIET" (tackon olddoc-source "Shareware#?")))
  132.    (run ("C:Delete >NIL: FILE=\"%s\" ALL FORCE QUIET" (tackon olddoc-source "Registration#?")))
  133.    (run ("C:Delete >NIL: FILE=\"%s\" ALL FORCE QUIET" (tackon olddoc-source "Bugs_Report#?")))
  134.    (run ("C:Delete >NIL: FILE=\"%s\" ALL FORCE QUIET" (tackon olddoc-source "Print#?")))
  135.  
  136. ;---------------------------------------------------------------------------;
  137.  
  138.    (working "\nEffacement des fichiers de localisation...")
  139.  
  140.    (run ("C:Delete >NIL: FILE=\"%s\" ALL FORCE QUIET" (tackon olddoc-source "MPLS_Patch_Locale#?")))
  141.    (run "C:Delete >NIL: FILE SYS:Locale/Catalogs/Français/mplspatch_demo.catalog FORCE QUIET")
  142.  
  143. ;---------------------------------------------------------------------------;
  144.  
  145.    (working "\nEffacement du répertoire 'MPLS_Patch_DEMO'...")
  146.  
  147.    (run ("C:Delete >NIL: FILE=\"%s\" ALL FORCE QUIET" (tackon olddrawer-source "MPLS_Patch_DEMO#?")))
  148.  
  149. ;---------------------------------------------------------------------------;
  150.  
  151.    (exit "Procédure de désinstallation terminée...")
  152.   )
  153.   (abort "Procédure de désinstallation abandonnée...")
  154.  )
  155.